Append richtext with OLE

Hi

I need to append an objects ObjectText afeter an another objects ObjectsText. The main problem is with richtext and OLE.
rt = richTextWithOle ( baseObj.AObjectText )
rtadd = richTextWithOle ( otherobj.AObjectText )
rt = richTextFragment rt richTextFragment rtadd
baseObj.AObjectText = richText rt

It seems to work with text, but not if otherobj contains an OLE object or picture.
I also need to put a newline character after baseobj's text before otherobj's text like rt = richTextFragment rt NEWLINE richTextFragment rtadd
Would you please help me how to step further with this problem?
g3ri - Thu Dec 16 06:59:27 EST 2010

Re: Append richtext with OLE
SystemAdmin - Thu Dec 16 08:17:21 EST 2010

Why the richTextFragment calls? This kind of code works for me (combines two attributes from next object to current object's Object Text):
 

Object o = current
Object baseObj = next(o)
string rt = richTextWithOle ( baseObj."Object Text")
string rtadd = richTextWithOle ( baseObj."OLE Test")
o."Object Text" = richText (rt "\n" rtadd)